home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 19
/
Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso
/
Aminet
/
comm
/
cnet
/
cnet_toolkit.lha
/
routines
/
MOUSE
< prev
next >
Wrap
Text File
|
1997-04-05
|
172b
|
3 lines
MOUSE: procedure;getuser 1202140;xc=result%8+1 ; getuser 1202142;yc=(result-11)%8+1
return arg(1)=yc & xc>=arg(2) & xc<arg(2)+arg(3) & bittst(import("00BF E001"x,1),6)=0